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ANALYSIS  SOmARE  SYSTEM  (EASS) 


1.0  INTRODUCTION 


1 . 1  Background  and  Scope 

Between  1975  and  1983  the  electrical  consumption  for  the  Navy  as  a  whole 
rose  12.7  percent.  To  account  for  this  increase,  an  Electrical  Analysis 
Software  System  (EASS)  was  developed  to  statistically  analyze  the  change  in 
activity  electrical  consumption  between  the  baseline  year  (1975)  and  the 
present.  The  software  utilizes  two  data  sources,  the  Facilities  Systems 
Office  (FACSO),  Naval  Facility  Assets/Master  Activity  General  Information  and 
Control  (NFA/MAGIC)  data  base  and  the  Defense  Energy  Information  System  (DEIS 
II)  data  base,  which  is  also  maintained  by  FACSO.  A  commercial  statistical 
regression  package  called  Biomedical  Computer  Programs  (BMDP)  is  an  integral 
part  of  the  software  system. 

The  programs  are  written  in  FORTRAN  for  use  on  the  Pacific  Missile  Test 
Center  (PMTC)  CYBER  system.  The  software  package  includes  programs  that 
tranfer  the  raw  NFA/MAGIC  and  DEIS  II  data  from  tape  to  disc,  programs  to 
clean  and  organize  the  data,  and  regression  analysis  programs. 

This  user’s  guide  documents  the  procedure  for  executing  EASS.  The 
software  package  is  intended  for  use  by  individuals  who  are  experienced  with 
FORTRAN  and  who  have  some  familiarity  with  statistical  regression.  The 
programs  are  not  user  friendly  and  require  editing  before  submittal. 

1 . 2  Program  Functions  and  Interrelationships 

EASS  consists  of  the  following  elements: 

1 .  5  data  tapes 

2.  16  data  files 
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3.  11  executable  program  files 

4.  4  nonexecutable  command  files 

Table  1  lists  the  name,  type,  and  function  of  each  system  element.  Figure  1 
shows  the  interrelationships  between  each  of  the  elements  and  illustrates  the 
general  procedure  to  follow  when  performing  the  statistical  analysis  of 
current  electrical  consumption  data.  Table  2  lists  the  regression  analyses 
that  can  be  performed  using  EASS;  the  type  of  regression,  independent  and 
dependent  variables  are  shown. 

To  perform  any  of  the  analyses,  the  first  step  is  to  acquire  the 
NFA/MAGIC  and  DEIS  II  data  tapes  from  FACSO.  Programs  FACED  and  NESALD  will 
create  disk  files  of  the  NFA/MAGIC  and  DEIS  II  tape  data,  respectively.  These 
disk  files  are  called  FACS4  for  the  NFA/MAGIC  data  and  NESA2  for  the  DEIS  II 
data.  No  data  cleaning  is  performed  by  either  FACED  or  NESAED. 

Once  the  data  have  been  loaded  to  disk,  the  programs  FACCE  and  NESACE  are 
run  to  generate  the  cleaned  data  stored  in  files  CEFAC  and  CENEE.  CENEE  con¬ 
tains  the  following  data: 

•  DEIS  II  Unit  Identification  Code  (UIC) 

•  Current  Activity  Square  Footage  Area 

•  Current  Other  Square  Footage  Area 

•  1975  Activity  Square  Footage  Area 

•  1975  Activity  Electrical  Comsumption  (MWHr) 

•  Current  Activity  Electrical  Consumption  (MWHr) 

•  Total  Cost  for  Electrical  Consumption  ($) 

The  FACCE  program  reduces  the  NFA/MAGIC  data  file  to  15  elements  per  record 
which  include  only  building  data  for  the  DEIS  II  UICs, contained  on  file 
CENEE.  Duplicate  facilities  are  screened. 

Once  the  data  are  cleaned  and  stored  on  files  CEFAC  and  CENEE  the  user 
has  a  choice  between  either  performing  the  'Change  from  the  Baseline'  analysis 
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Table  1.  EASS  Elements 


Element 

Name 

Type 

Functional  Description 

VSN  # 

Data  Tape 

NFA/MAGIC  Dump  Tape  1 

VSN  # 

Data  Tape 

NFA/MAGIC  Dump  Tape  2 

VSN  it 

Data  Tape 

NFA/MAGIC  Dump  Tape  3 

VSN  it 

Data  Tape 

NFA/MAGIC  Dump  Tape  4 

VSN  it 

Data  Tape 

DEIS  II  Dump  Tape 

TAPELD 

Executable  Program  File 

Creates  a  disk  file  containing  the 
raw  NFA/MAGIC  data. 

NESALD 

Executable  Program  File 

Creates  a  disk  file  containing  the 
raw  DEIS  II  data. 

FACS4 

Data  File 

File  created  by  TAPELD  containing 
the  raw  NFA/MAGIC  data. 

NESA2 

Data  File 

File  created  by  NESALD  contining 
the  raw  DEIS  II  data. 

FACCL 

Executable  Program  File 

Creates  a  disk  file  containing 
usable  NFA/MAGIC  data. 

NESACL 

Executable  Program  File 

Creates  a  disk  file  containing 
usable  DEIS  II  data. 

CLFAC 

Data  File 

File  created  by  FACCL  containing 
usable  NFA/MAGIC  data. 

CLNEE 

Data  File 

File  created  by  NESACL  containing 
usable  DEIS  II  data. 

COST 

Executable  Program  File 

Creates  a  disk  file  containing  elec¬ 
trical  cost  data,  square  footage  area 
changes,  and  differences  in  electrical 
consiunption  from  baseline  to  present. 

COSTD 

Data  File 

File  created  by  COST  containing  elec¬ 
trical  cost  data,  square  footage  area 
changes,  and  differences  in  electrical 
consumption  from  baseline  to  present. 
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Table  1.  EASS  Elements  (Continued) 

Element 

Name  Type  Functional  Description 

REGCO  Executable  Program  File  Performs  the  simple  linear  regression 

Analysis  of  the  data  contained  in  COSTD 
in  accordance  with  the  commands  speci¬ 
fied  in  CON. 

CON  Nonexecutable  Command  BMDP  simple  linear  regression  commands 

File  for  developing  relationships  between 

electrical  costs,  change  in  square 
footage,  and  consumption. 

STDATA  Executable  Program  File  Creates  10  data  files  containing  act¬ 
ivity  electrical  consumption  and  facil¬ 
ity  square  footage  data,  organized  by 
geographical  area. 

REGl...,  Data  Files  Ten  data  files  created  by  STDATA;  each 

REGIO  contains  data  for  one  geographical  area. 

REGCON  Executable  Program  File  Performs  a  Mallows  Cp  regression  analy¬ 
sis  of  the  facility  square  foot  and 
electrical  consumption  data  contained 
in  files  REGl-10  utilizing  the  commands 
in  file  CONTRE. 

CONTRE  Nonexecutable  Commmand  BMDP  Mallows  Cp  regression  commands  for 
File  developing  a  relationship  between  facil¬ 

ity  areas  and  electrical  consumption. 

REGRESl  Executable  Program  File  Performs  a  multiple  linear  regression 

fuialysis  of  the  facility  square  foot 
and  electrical  consumption  data  con¬ 
tained  in  files  REGl-10  utilizing  the 
conmands  in  file  CONTROl 

CONTROl  Nonexecutable  Command  BMDP  multiple  linear  regression  commands 
File  for  developing  a  relationship  between 

facility  areas  and  electrical  consumption 

PROBASE  Executable  Program  File  Calculates  the  family  housing  square  foot¬ 
age  and  electrical  consumption  for  1975 
and  the  present.  Writes  the  calculated 
values  to  data  file  DIFFD. 

DIFFD  Data  File  Data  file  created  by  PROBASE  containing 

the  family  housing  square  footages  and 
electrical  consumptions  for  1975  and 
present. 
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Table  1.  EASS  Elements  (Continued) 

Element 

Name  Type  Functional  Description 


REGRESS  Executable  Program  File  Performs  a  simple  linear  regression 

analysis  to  relate  the  family  housing 
square  footage  area  to  electrical  con¬ 
sumption.  Utilizes  the  commands  in  file 
CONTROL  and  the  DIFFD  data. 

CONTROL  Nonexecutable  Command  BMDP  simple  linear  regression  commands 

File  for  developing  a  line  through  the  origin 

relating  family  housing  square  footage 
area  to  electrical  consumption. 


Table  2  EASS  Analyses 


Regression 
No .  Type 


Dependent 

Variables 


Independent 

Variables 


1 .  Simple  Linear 

2.  Simple  Linear 

3.  Simple  Linear 

4.  Simple  Linear 


Change  in  Electrical  Con¬ 
sumption,  1975  to  present 

Percent  change  in  electrical 
consumption,  1975  to  present 

Change  in  electrical  consump¬ 
tion  per  square  foot,  1975  to 
present 

Change  in  electrical  consump¬ 
tion,  1975  to  present 


5.  Multiple  Linear  Change  in  electrical  consump¬ 
tion,  1975  to  present 


6.  Multiple  Linear  Activity  electrical  consump- 
Regression  thru  tion  (either  1975  or  present) 
the  Origin 


7.  Mallows  Cp  Activity  electrical  consump- 

Multiple  Linear  tion  (either  1975  or  present) 
Regression  thru 
the  Origin 


8.  Simple  Linear  Family  housing  electrical 

Regression  thru  consumption  (either  1975 
the  Origin  or  present) 


Unit  cost  of  electricity 


Unit  cost  of  electricity 


Unit  cost  of  electricity 


Change  in  activity  square 
footage  area,  1975  to  pre 
sent 

Change  in  activity  square 
footage  area,  1975  to  pre 
sent  and  unit  cost  of 
electricity 

Square  footage  areas  for 
each  facility  type 


Square  footage  areas  for 
each  facility  type 


Family  housing  square 
footage  area  (either  1975 
or  present) . 


or  the  'Facility  Square  Footage'  analysis.  The  'Change  from  the  Baseline' 
analysis  includes  the  first  five  regressions  shown  in  Table  2.  The  'Facility 
Square  Footage'  analysis  consists  of  analys  i  6  through  8  in  Table  2. 

To  analyze  the  change  in  electrical  consumption  between  1975  and  the 
present,  the  program  COST  is  run  to  organize  the  data  in  a  form  consistent 
with  BMDP.  Once  COST  is  completed,  REGCO  is  executed.  The  results  of  REGCO 
include  the  regression  coefficients  and  correlation  coefficients  for  the  first 
five  analyses  of  Table  2. 

To  perform  the  facility  square  footage  regressions,  STDATA  is  run  to 
organize  the  data  by  geographical  area  and  facility  CCN.  Once  the  results  of 
STDATA  are  obtained,  either  REGRESl  or  REGCON  is  run  to  perform  a  multiple 
linear  regression  or  Mallows  Cp  regression,  respectively.  The  program  PROBASE 
organizes  the  family  housing  data  for  the  program  REGRESS.  REGRESS  performs  a 
simple  linear  regression  analysis  through  the  origin  between  the  family  square 
footage  data  and  the  family  housing  electrical  consumptions. 

1 . 3  Memual  Organization 

Chapter  1  has  described  the  general  procedure  for  executing  the  software 
system.  Chapters  2  through  5  discuss  the  loading,  cleaning,  organizing  and 
regression  programs,  respectively.  Chapter  6  provides  the  user  with  a  guide 
to  the  CYBER  system  editor. 

2.0  DATA  LOADING  PROGRAMS 


2 . 1  NFA/MAGIC  Tape  to  Disk  Transfer  Program,  TAPELD 

The  purpose  of  program  TAPELD  is  to  transfer  the  NFA/MAGIC  data  stored  on 


tape  to  the  NCEL  L62  disk  pack.  The  disk  pack  has  the  following  parameters: 


SN  =  NCEL62 


VSN  =  V20 
PW  =  MP6284 

The  NFA/MAGIC  data  base  is  usually  contained  on  four  tapes.  These  tapes  can 
be  obtained  from  Gail  Stovall  at  FACSO,  982-3486,  Ext.  520.  Each  tape  is 
identified  by  a  VSN  number  which  is  printed  on  the  side  of  the  tape.  The 
tapes  should  be  delivered  to  the  computer  control  center  at  PMTC,  982-8149. 

The  tapes  can  be  stored  at  PMTC  for  ten  working  days;  after  which  they  will  be 
returned  to  the  owner. 

The  program  TAPELD  can  be  batched  using  the  commands  shown  in  Chapter  6. 
Before  batching,  one  correction  to  the  program  is  required.  The  fourth  state¬ 
ment  must  be  modified  to  reflect  the  VSN  numbers  of  the  new  tapes.  This  state¬ 
ment  can  be  edited  using  EDIT  which  is  described  in  detail  in  Chapter  6.  A 
listing  of  TAPELD  is  shown  in  Appendix  A. 

The  result  of  batching  TAPELD  is  a  file  called  FACS4  which  contains  the 
entire  NFA/MAGIC  data  base.  The  output  to  the  batch  will  indicate  the  number 
of  records  written  to  the  disk  file.  The  number  of  records  should  be 
recorded,  as  it  will  be  used  in  another  program. 

2.2  DEIS  II  Tape  to  Disk  Transfer  Program.  NESALD 

The  DEIS  II  dump  tape  can  be  obtained  from  Gail  Stovall  at  FACSO, 

982-3486,  Ext.  520.  Once  obtained,  it  should  be  delivered  to  the  PMTC  computer 
control  center,  982-8149. 

The  program  NESALD  is  used  to  transfer  the  DEIS  II  data  stored  on  tape  to 
an  NCEL  L62  disk  pack  file  called  NESA2.  Before  using  the  batch  instructions 
shown  in  Chapter  6,  two  program  modifications  must  be  made.  First  the  VSN 
number  on  the  fourth  line  must  be  modified  to  reflect  the  new  identifier. 
Secondly,  the  twelfth  line  must  show  the  maximum  record  number  on  the  DEIS  II 
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tape.  The  statement  "MAX  =  18519"  should  be  modified  to  reflect  the  number  of 
records  on  the  tape.  NESALD  is  listed  in  Appendix  A  for  reference.  The  record 
count  may  be  printed  on  the  tape  label  or  may  be  obtained  from  Gail  Stovall 
when  the  tapes  are  acquired  from  FACSO. 

After  the  program  NESALD  has  run,  all  of  the  DEIS  II  information  for  the 
present  year  will  be  resident  on  a  disk  file  called  NESA2.  The  output  of  the 
batch  job  will  indicate  if  the  load  was  successful.  If  the  catalog  was 
completed,  the  data  were  transferred  from  tape  to  disk  completely. 


3.0  DATA  CLEANING  PROGRAMS 

Once  the  data  have  been  transferred  to  disk,  two  programs  must  be  run  to 
clean  the  data.  NESACL  should  be  run  before  FACCL  because  the  output  of 
NESACL  is  used  by  the  FACCL  program. 

3 . 1  DEIS  II  Data  Cleaning  Program.  NESACL 

The  program  NESACL  performs  the  following  three  functions  on  the  DEIS  II 
data  stored  in  file  NESA2: 

1.  Deletion  of  energy  usage  data  not  pertaining  to  electrical 
consumption. 

2.  Conversion  of  signed  variables  to  numerical  integers. 

3.  Summation  of  electrical  consumption  and  cost  for  each  DEIS  II 
UIC. 

In  its  first  function,  NESACL  checks  for  electrical  consumption  records.  If 
the  data  is  concerned  with  some  other  energy  form  such  as  steam,  the  record  is 
skipped. 

Some  of  the  data  in  the  DEIS  II  data  base,  are  expressed  as  signed 
variables.  For  example,  the  square  footage  areas  recorded  for  "current  other" 
facilities  (CUROTH)  may  assume  a  negative  value.  Expressed  as  a  signed 
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variable,  CUROTH  will  contain  in  its  last  field  a  number  from  1  to  9,  a  letter 
from  A  to  R,  a  space,  or  another  character.  This  character  expresses  the  sign 
of  the  variable  and  the  value  of  its  last  digit.  If  the  last  field  is  between 
1  and  9,  the  variable  is  positive  and  its  last  digit  is  equal  to  the  value  of 
the  number.  If  the  last  field  is  a  letter  or  character,  the  following  is 
concluded  about  the  sign  and  value  of  the  last  digit  of  CUROTH. 


Value  of  Last  Digit 

1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 

5 

6 

7 

8 
9 
0 
0 


For  example  if  CUROTH  was  assigned  a  value  of  2013R,  it  would  equal  -  20139  as 
I  shown  above . 

To  determine  the  total  electrical  consumption  and  cost  for  a  DEIS  II  UIC, 
the  individual  records  pertaining  to  that  acitiviy  must  be  summed.  NESACL  also 
I  performs  this  function  and  calculates  the  total  electrical  cost,  current  annual 

consumption,  and  baseline  year  consumption  for  each  DEIS  II  UIC. 

The  following  cleaned  data  are  written  to  a  disk  file  called  CLNEE. 
j  •  DEIS  II  UIC 

•  Current  Activity  Square  Footage 


Last  Digit  Sign 


A  + 

B  + 

C  + 

D  + 

E  + 

F  + 

G  + 

H  + 

I  + 

J 
K 
L 


N 

0 

P 

Q 

R 

Space 

Other  non-numeric  character  + 
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•  Current  Other  Square  Footage 

•  Baseline  Square  Footage 

•  Baseline  Electrical  Consumption  (MWHr) 

•  Current  Electrical  Consumption  (MWHr) 

•  Total  Cost  of  Electricity  ($) 

The  output  of  the  program  is  a  listing  of  the  cleaned  data  and  the  number  of 
DEIS  II  records  written  to  file  CLNEE.  The  number  of  records  will  be  used  in 
other  programs . 

One  modification  to  the  program  NESACL  is  required  for  each  run.  NREC  is 
equal  to  the  number  of  logical  records  contained  on  the  NESA2  disk  file  and 

DELS  II  data  type.  The  "NREC  = _ "  statement  must  be  modified  to 

reflect  the  number  of  logical  records  contained  in  file  NESA2.  A  listing  of 
NESACL  is  included  in  Appendix  A. 

3.2  NFA/MAGIC  Data  Cleaning  Program.  FACCL 

The  program  used  to  clean  the  NFA/MAGIC  data  is  called  FACCL.  FACCL 
performs  the  following  actions  on  the  disk  file  FACS4: 


1.  Deletion  of  non-building  type  facility  records 

2.  Deletion  of  duplicate  facility  records 

3.  Deletion  of  facilities  not  contained  within  the  DEIS  II  UICs 
listed  in  file  CLNEE. 

4.  Abstraction  of  important  data  elements. 

Structures  that  are  not  considered  buildings  are  not  included  in  the  analyses. 
The  program  FACCL  screens  the  non-building  type  structures.  Any  duplicate 
facilities  are  also  screened.  Unique  facilities  are  identified  by  their 
Activity  UlC/Property  Record  Number  combination.  The  facilities  are  checked 
for  their  DEIS  II  UIC.  If  the  DEIS  II  UIC  is  not  listed  in  file  CLNEE,  no 


electrical  consumption  data  are  available  for  this  activity  and  the  record  is 
eliminated. 

After  a  facility  has  been  checked  for  duplication,  verified  that  it  is  a 
building,  and  determined  to  be  assigned  to  a  good  DEIS  II  UIC,  the  following 
information  is  written  to  the  file  CLFAC: 

•  Engineering  Field  Division  (EFD)  UIC 

•  Plant  Property  UIC 

•  Major  Claimant  UIC 

•  Activity  UIC 

•  Property  Record  Number 

•  Facility  Type 

•  State  Code 

•  Area 

•  Construction  Type  Code 

•  Year  Built 

•  Year  of  Last  Capital  Improvement 

•  Prime  Use  CCN 

•  Area  Unit  of  Measure 

•  Navy  Facility  Category  Code 

•  DEIS  II  UIC 

The  program  FACCL  will  print  as  output  the  total  number  of  clean  facility 
records  written  to  the  file  CLFAC.  Each  time  FACCL  is  run,  two  program  lines 

must  be  modified.  The  line  'NDEIS  = _ '  must  be  changed  to  reflect  the 

number  of  DEIS  II  activities  written  to  file  CLNEE  (output  from  NESACL) .  The 

line  'NREC  =  _ '  should  show  the  number  of  records  contained  within 

file  FACS4.  This  value  is  also  equal  to  the  number  of  records  contained  on 
the  NFA/MAGIC  tapes  and  is  an  output  of  the  program  TAPELD.  FACCL  is  listed 
in  Appendix  A  for  reference. 


4.0  DATA  ORGANIZATION 


Once  the  data  have  been  loaded  and  cleaned  they  must  be  organized  for  use 
in  the  various  BMDP  requession  programs.  The  following  three  programs  are 
used  to  organize  the  data: 

1 .  COST 

2.  STDATA 

3 .  PROBASE 

Each  of  these  programs  will  be  described  in  detail  in  this  Chapter. 

4. 1  Change  From  Baseline  Analysis  -  Data  Organization.  COST 

The  program  COST  is  used  to  calculate  the  difference  in  activity  square 
footage  from  1975  to  the  present,  the  unit  cost  of  electricity,  the  change  in 
electrical  consumption  from  1975  to  the  present,  the  percent  change  in  elec¬ 
trical  consumption  from  the  baseline  year,  and  the  change  in  consumption  per 
square  foot  area.  These  five  values  are  computed  for  each  activity  and  writ¬ 
ten  to  a  file  called  COSTD.  COSTD  is  not  stored  on  the  NCEL  L62  disk  pack; 
rather  it  is  stored  as  a  permanent  file  under  ID  =  EIDE.  Permanent  file 
storage  is  discussed  in  Chapter  6. 

The  program  COST  uses  the  file  CLNEE  as  input.  The  output  of  the  program 
is  a  listing  of  each  data  element  for  all  of  the  DEIS  II  UICs  in  file  CLNEE. 
The  only  modification  to  the  program  COST  that  is  required  is  a  change  in  the 

statement  'NDEIS  = _ ' .  This  value  should  reflect  the  number  of  DEIS 

II  UICs  contained  in  file  CLNEE,  which  is  an  output  of  the  program  NEFACL.  A 
listing  of  the  program  COST  is  included  for  reference  in  Appendix  A. 

4 . 2  Facility  Square  Footage  -  Data  Organization,  STDATA 


The  program  STDATA  is  the  most  complex  to  use  of  any  of  the  programs  in 
STDATA  can  create  up  to  10  data  files  named  REGl,  REG2 .  REGIO. 


Each  file  contains  the  facility  square  foot  areas  and  activity  electrical 
consumptions  for  a  separate  geographical  area.  Geographical  area  can  be 
designated  by  any  one  of  the  following  six  variables: 

1.  State 

2.  EFD  UIC 

3.  Plant  Property  UIC 

4.  Major  Claimant  UIC 

5.  Activity  UIC 

6.  DEIS  II  UIC 

The  user  specifies  the  variable  and  the  elements  per  area.  For  example,  if 
the  activities  are  to  be  organized  by  state,  the  user  selects  geographical 
code  1.  Similarly,  if  the  data  are  to  be  organized  by  major  claimant  UIC,  the 
user  specifies  4  for  the  geographical  code.  Next  he  selects  the  elements  for 
each  geographical  area.  For  example,  when  organizing  geographical  areas  by 
state,  the  user  might  construct  the  following  zones: 


Zone  1 

Zone  2 

Zone  3 

Zone  4 

(Southeast) 

(Atlantic  Seaboard) 

(Northwest) 

(Southwest) 

Texas 

Maryland 

Washington 

California 

Louisiana 

Delaware 

Oregon 

Arizona 

Mississippi 

New  York 

New  Mexico 

Alabama 

New  Jersey 

Georgia 

Connecticut 

Florida 

Rhode  Island 

South  Carolina 

Massachusetts 

North  Carolina 

District  of  Columbia 

Virginia 


STDATA  would  develop  four  data  files,  REGl,  REG2,  REG3,  and  REG4,  one  for  each 
of  the  different  geographical  zones.  Appendix  B  contains  a  listing  of  a 
numerical  codes  used  by  the  program  to  identify  each  of  the  states. 


STDATA  will  also  screen  the  facility  data  by  three  construction  selec¬ 


tions  : 


1. 

Construction 

Code 

2. 

Year  Built 

3. 

Last  Capital 

Improvement  Year 

The  user  specifies  one  of  the  following  for  the  construction  code: 


Code 


Term 


Definition 


P 


S 


T 


Permanent 


Semi -permanent 


Temporary 


A  building  designed  and  constructed 
to  serve  its  purpose  for  a  period 
of  at  least  25  years  with  no  undue 
maintenance  requirements. 

A  building  designed  and  constructed 
to  serve  its  purpose  for  a  period 
of  from  5-2A  years  with  no  undue 
maintenance  requirements. 

A  building  designed  and  constructed 
to  serve  its  purpose  for  a  period 
less  than  5  years. 


The  program  will  only  consider  facilities  with  the  selected  code. 

The  user  can  also  investigate  buildings  that  were  constructed  or  improved 
within  a  user  specified  period.  To  study  a  specific  construction  period,  the 
user  specifies  a  value  of  2  for  the  construction  index  and  the  construction 
period.  For  example,  if  the  period  from  1975  through  1983  was  selected,  only 
facilities  constructed  during  this  period  would  be  included  in  the  analysis. 
Similarly,  if  the  user  is  interested  in  specifying  a  period  for  the  last  year 
of  capital  improvement,  a  value  of  3  would  be  assigned  to  the  construction 
index  and  an  improvement  period  would  be  input  by  the  user.  The  program  would 
consider  only  facilities  improved  within  the  specified  time  frame. 


The  user  must  also  specify  which  CCN  the  facility  square  footage  areas 
will  be  based  upon.  The  CCN  selection  consists  of  the  following  two  options: 

1.  Navy  Facility  CCN 

2.  Prime  Use  CCN 


Once  the  user  has  selected  one  of  the  these  options,  the  facility  classifica¬ 
tions  must  be  specified  by  CCN.  The  following  list  shows  an  example  of  eight 
facility  classifications  and  the  corresponding  CCNs  used  to  identify  these 
groupings . 


Facility  Description 

Port  Facilities  and  Storage 

Training 

Maintenance 

Production 

Laboratories 

Medical  and  Dispensaries 
Administration 
Troop  Housing,  Community 
Facilities  and  Utilities 


CCN 

11100-16999,  40000-49999 

17000-19999 

20000-21999 

22000-29999 

30000-39999 

50000-59999 

60000-69999 

72100-89999 


The  user  must  specify  how  many  facility  classifications  are  of  interest  and 
how  many  CCN  ranges  describe  each  facility  classification.  In  the  above 
example,  the  first  facility  classification.  Port  Facilities  and  Storage, 
requires  two  CCN  ranges,  111000  to  16999  and  40000  to  49999.  All  other 
classifications  require  one  CCN  range. 

The  user  must  also  change  the  two  program  statements; 

'NDEIS  =  _ ' 

and 

'NFAC  =  ’ 


to  reflect  the  number  of  records  on  files  CLNEE  and  CLFAC,  respectively.  The 
source  listing  of  the  program  STDATA  is  shown  in  Appendix  A.  A  complete 
description  of  the  program's  data  format  is  in  Appendix  C. 


4.3  Family  Housing  Data  Organization.  PROBASE 

The  program  PROBASE  organizes  the  family  housing  data  for  use  in  the 
regression  analysis  program.  The  program  utilizes  the  data  contained  in  the 
file  CLNEE  to  calculate  the  electrical  consumptions  for  1975  and  the  present 
in  units  of  MBtus,  and  the  family  housing  square  footage  areas  for  the  family 
housing  avtivities.  As  in  the  other  programs,  PROBASE  requires  one  modifica¬ 
tion  before  execution.  The  statement  *NDEIS  = _ '  must  be  changed  to 

reflect  the  number  of  DEIS  II  records  contained  in  file  CLNEE.  The  program 
writes  the  output  to  the  permanent  file  DIFFD  which  is  stored  under  ID=EIDE. 
PROBASE  is  listed  in  Appendix  A. 

5.0  REGRESSION  PROGRAMS 

After  the  data  organization  procedure  is  completed,  the  regression 
analyses  can  be  performed.  The  EASS  regression  programs  are  as  follows: 

1.  REGCO  (Analyses  1-5,  Table  2) 

2.  REGCON  (Analysis  7,  Table  2) 

3.  REGRESl  (Analysis  6,  Table  2) 

4.  REGRESS  (Analysis  8,  Table  2) 

These  programs  and  their  corresponding  control  files  are  described  in  detail 
in  this  chapter. 

5 . 1  Change  from  Baseline  Regression  Analysis,  REGCO 

Once  the  data  file  COSTD  has  been  created,  the  program  REGCO  can  be 
batched.  REGCO  performs  the  first  five  analyses  listed  in  Table  2.  The 
results  of  the  analysis  are  expressed  in  terms  of  the  variable  names  assigned 
to  the  dependent  and  independent  variable:,  shown  in  Table  3. 
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Table  3.  Variable  Names  Used  in  Program  REGCO 


Variable  Name 

Variable  Description 

Units 

ELE 

Change  in  electrical  consumption 
from  1975  to  the  present. 

MBtu 

ESQFT 

Change  in  electrical  consumption  from 

1975  to  the  present  per  1975  activity 
square  feet. 

MBtu/ft* 

COST 

Unit  cost  of  electricity. 

$/KWHr 

PER 

Percent  change  in  electrical  consumption 
from  1975  to  the  present. 

% 

CSQFT 

Change  in  total  activity  building  area 
from  1975  to  the  present. 

ft* 

The  control  file  CON  describes  the  regression  analyses  performed  by  REGCO. 

Table  4  summarizes 

these  analyses. 

Table  4.  REGCO  Analyses 

Analysis  Number  Regressed  Equation 

1 

ESQFT  =  bO  +  bl  COST 

2 

ELE  =  bO  +  bl  CSQFT 

3 

ELE  =  bO  +  bl  CSQFT 

+  b2  COST 

4 

PER  =  bO  +  bl  COST 

5 

ELE  =  bO  +  bl  COST 

The  correlation  coefficient  for  each  of  these  analyses  is  printed  also.  A 
listing  of  both  REGCO  and  CON  is  shown  in  Appendix  A. 
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5 . 2  Mallows  Cp  Regression  Analysis  of  Facility  Areas,  REGCON 


REGCON  performs  a  Mallows  Cp  Regression  on  the  data  contained  in  an 
individual  geographical  area  file  (REGl,  REG2,...,  REGIO) .  The  program  can  be 
batched  once  STDATA  has  been  run.  REGCON  must  be  edited  to  reflect  the  data 
file  for  which  the  analysis  is  being  conducted.  Any  existing  data  file  REGl 
through  REGIO  can  be  specified.  Each  REGx  file  contains  facility  data  for  a 
different  geographical  zone  x.  The  following  two  statements  in  REGCO  must  be 
edited: 

ATTACH,  REGx,  ID  =  VSE,  SN  =  NCEL62. 
and 

BMDP9R,  I  =  CONTRE,  D  =  REGx. 

The  value  of  x  should  relect  the  geographical  area  for  which  the  analysis  is 
being  performed.  For  example,  an  analysis  of  the  facility  data  for  geograph¬ 
ical  area  8  would  contain  the  following  statements: 

ATTACH,  REGS,  ID  =  VSE,  SN  =  NCEL62. 
and 

BMDP9R,  I  =  CONTRE,  D  =  REGS. 

The  BMDP  control  file  for  REGCON  is  CONTRE.  When  different  numbers  of 
facility  classifications  are  being  analyzed,  CONTRE  must  be  changed.  The 
'input'  line  must  reflect  the  total  number  of  variables,  both  dependent  and 
independent  included  in  the  analysis.  Table  5  gives  the  variable  names  and  a 
description  of  each. 


Table  5.  Variable  Names  Used  in  Program  REGCON 


Variable  Name 

Variable  Description 

Units 

ELE 

Current  annual  electrical  consumption 

MBtu 

BAS 

Baseline  year  electrical  comsumption 

MBtu 

SQFTOT 

Temporary  building  area 

ft* 

SQFT  1,  SQFT  2, 

Area  for  facility  classification  n 

ft* 

....  SQFTn 

Any  or  all  of  the  independent  variables  can  be  regressed  with  the  two 
dependent  variables,  ELE  and  BAS.  The  following  changes  are  needed; 

VARIABLES  ARE _ .  (Should  reflect  total  number  of 

dependent  and  independent  variables; 
not  just  those  used  in  the  analysis.) 

NAMES  ARE  ELE,  BAS,  SQFTOT,  (Should  reflect  every  variable  not 

SQrri,  SQFT2,  SQFTn.  just  those  used  in  the  analysis.) 

DEPENDENT  IS _ .  (Should  show  either  BAS  or  ELE.) 

INDEPENDENT  ARE _ .  (Any  combination  of  independent 

variables . ) 

REGCON  and  CONTRE  are  listed  in  Appendix  A  for  reference. 

The  result  of  Mallows  Cp  regression  is  the  "best  set"  of  independent 
variables  and  their  regression  coefficients.  The  correlations  between 
independent  variables  are  listed  in  addition  to  the  regression  correlation 
coefficient . 

5 . 3  Multiple  Linear  Regression  Analysis  of  Facility  Areas,  REGRESl 

The  program  REGRESl  must  be  modified  in  a  similar  way  to  REGCON  to 


reflect  the  geographical  file  (REGl  through  REGIO)  that  will  be  used  in  the 
analysis.  The  control  file  for  REGRESl  is  CONTROl.  As  in  the  case  of  CONTRE, 


CONTROl  must  be  modified  to  show  the  proper  number  of  variables.  The  same 
changes  required  of  CONTRE  are  also  required  of  CONTROl.  The  user  is  referred 
to  section  5.2  for  the  details  of  these  modifications.  REGRESl  and  CONTROl  are 
listed  in  Appendix  A. 

5.4  Simple  Linear  Regression  Analysis  of  Family  Housing  Area,  REGRESS 

The  program  REGRESS  determines  the  the  family  housing  electrical  consump¬ 
tion  factor  for  the  present  or  the  baseline  year.  REGRESS  uses  the  control 
file  CONTROL.  No  modifications  to  REGRESS  are  required  before  batching,  how¬ 
ever,  CONTROL  must  be  changed  to  reflect  which  year  is  being  analyzed.  The 
variables  used  in  REGRESS  are  shown  in  Table  6.  Tlie  dependent  and  independent 
variables  should  be  CUR75  and  BSQFT  for  the  baseline  year  and  CURn  and  CSQFT 
for  year  n  .  The  output  from  REGRESS  includes  the  regression  coefficient  and 
correlation  coefficient. 

Table  6.  Variables  Used  in  Program  REGRESS 


Variable  Name  Variable  Description  Units 


CSQFT  Current  activity  family  housing  area  ft* 

CURn  Activity  electrical  consumption  for  MBtu 

year  n 

BSQFT  Baseline  activity  family  housing  area  ft* 

CUR75  Baseline  electrical  consumption  for  MBtu 

family  housing 


6.  USE  OF  THE  PMTC  CYBER  SYSTEM 

This  chapter  will  provide  some  basic  information  to  assist  the  user  in 
running  EASS  on  the  PMTC  CYBER  system.  For  more  details  or  information  about 
this  system  the  user  is  referred  to  the  CYBER  user's  group  at  982-7178. 


6. 1  Login  Procedure 

Before  the  user  name,  passwood  and  ID  can  be  entered,  the  command  'LOGIN' 
must  be  typed  in  response  to  the  system  LOGIN  statement.  The  following  login 
responses  are  requested: 

LOGIN  -  (respond  with  LOGIN) 

USER  NAME  -  (respond  with  user  name) 

PASSWORD  -  (respond  with  user  password) 

USER  NUMBER  -  (respond  with  user  ID) 

After  responding  to  these  queries  correctly,  the  user  will  see  some  system 
information  and  the  query: 

COMMAND  - 

The  user  is  now  ready  to  begin  a  programming  session. 

6.2  Making  a  File  Local 

All  EASS  programs  are  permanent  files  stored  under  the  ID  'EIDE' .  Before 
any  of  the  programs  can  be  run  they  must  be  made  local  files.  To  do  this  the 
user  simply  types  the  following  in  response  to  the  COMMAND  query: 

COMMAND  -  ATTACH,  filename,  ID  =  EIDE 

This  command  will  make  the  file  by  the  name  'filename'  a  local  file.  The  user 
is  now  ready  to  edit  or  batch  this  file. 

6 . 3  Editing  a  File 

To  get  into  the  edit  mode  for  a  local  file  the  user  types  the  following: 

COMMAND  -  EDIT,  filename 


This  enables  the  user  to  make  changes  to  'filename'.  The  system  should 
respond  with  a  '?'  query  indicating  that  the  user  is  in  the  edit  mode. 


The  CYBER  editor  uses  a  pointer  system.  The  pointer  is  positioned  at  the 
first  program  line  when  the  editing  session  is  initiated.  If  the  user  wishes 
to  list  n  lines  including  the  pointer  line,  he  follows  the  instruction: 

?Ln 

The  pointer  remains  at  the  first  line  until  moved.  To  move  the  pointer, 
the  user  types: 

?Sn 

where  n  can  be  either  a  positive  or  negative  number.  This  command  moves  the 
pointer  up  or  down  depending  on  the  sign  of  n. 

Another  way  to  move  the  pointer  is  to  use  the  find  command,  F.  This 
command  will  station  the  pointer  at  the  first  line  below  the  current  pointer 
position  which  includes  the  specified  string.  An  example  is: 

?F/string/ 

The  D  command  is  used  to  delete  the  pointer  line  and  the  next  n-1  lines 
as  shown: 

7Dn 

To  add  lines  after  the  pointer  line  the  user  types  the  following: 

?A 

The  system  will  instruct  the  user  how  to  return  to  the  7  prompt  when  finished 
adding. 

When  making  changes  to  the  pointer  line  and  subsequent  lines  the  replace 
string  (RS)  command  is  useful  as  illustrated  below: 

?RS/stringl/  string2/n 

This  command  will  replace  the  phrase  shown  as  stringl  by  the  phrase  string2 
the  next  n  times  it  is  encountered  below  the  pointer. 

The  change  command,  C,  is  useful  for  replacing  an  entire  line.  The  user 


types  the  following: 


and  enters  the  text  required.  The  %  EOR  statement  will  return  the  user  to  the 
?  prompt. 

After  an  editing  session  is  completed,  the  user  types  'END*  to  save  the 
edited  file,  or  'QUIT*  if  the  edited  file  is  not  to  be  saved.  The  user  is 
returned  to  the  COMMAND  query  after  typing  either  of  these  two  commands. 

6.4  Submitting  a  Batch  Job 

Before  a  program  can  be  batched  it  must  first  be  a  local  file  (see 
section  6.2).  To  batch  a  job  the  following  command  is  given: 

COMMAND  -  BATCH,  filename,  INPUT,  HERE 

This  command  will  submit  the  file  by  the  name  of  filename  for  compilation.  If 
the  user  types  'FILES'  a  listing  of  all  local,  remote  input,  remote  output, 
and  remote  executing  files  is  shown.  When  the  job  has  run,  it  will  become  a 
remote  output  file  with  some  name  assigned  by  the  system.  The  user  can  make 
this  remote  output  file  a  local  file  by  entering  the  following: 

COMMAND  -  BATCH,  remote  output  filename,  LOCAL 
The  user  can  then  use  the  EDIT  commands  to  review  the  results. 

6.5  Printing  Output 

To  print  the  results  at  the  CYBER  Control  Center,  the  user  has  two 
options.  If  the  remote  output  file  has  been  made  local,  the  following  command 
is  used: 

PRINTAT,  CS,  remote  output  filename 

If  the  user  does  not  want  to  review  his  results  at  the  terminal  before  , 
printing,  he  can  batch  the  job  with  the  following  command: 

BATCH,  filename,  INPUT 

This  will  automatically  print  the  day  file  and  results  at  the  control  center. 
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APPENDIX  A 


SOURCE  LISTINGS  OF  EASS  PROGRAMS 


PROGRAM  TAPELD 


ALL4,PE1  .DEM011SABER,43455SD2. 

MOUNT  ,SN=NCEL62  ,VS1I=V20  ,PW=MP6284  • 

LIMIT, 10000. 

VSN ,TAPE=501 91 /50653/50580/5061 2 . 

REQUEST , T  APE , PE , L , US , NORING . 

REQUEST ,FACS4 ,PP,SN=NCEL62 . 

PILE,TAPE,RT=P,BT=K,PL=850,RB=19,MBL=16450,CM=YES 
P ILE , PACS4 , RT = Z , BT =C , MRL=850 . 

FORM , INP=TAPE , 0UT=PACS4 . 

CATALOG, PACS4,ID=VSE. 

UNLOAD, TAPE. 


PROGRAM  NESALO 

NEESA,PE1 . DEMONSABER, 43455SD2. 

MOUNT , SN=NCEL62 , VSN=V20 , PW=MP6284 . 

LIMIT, 10000. 

VSN,TAPE=50184. 

REQUEST , TAPE , PE , L , US , NORING . 

REQUEST ,NESA2 , PP, SN=NCEL62 . 

PILE,TAPE,RT=P,BT=K,PL=175,RB=92,MBL=16100,CM=YES 

PILE, NESA2,RT=Z,BT=C, MRL= 175- 

FORM. 

CATALOG , NES A2 , ID=VSE . 

UNLOAD, TAPE. 

*EOR 

INPCTAPE,MAX=18519) 

0DT(NESA2) 
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PROGRAM  NESACL 


CLNEE, T 100. DEMONSABER, 43455SD2. 

MOUNT , SN=NCEL62 , VSN=V20 , PW=MP6284 . 

ATTACH ,NESA2 , ID=VSE ,SN=NCEL62 . 

PURGE , CLNEE , ID=VSE ,SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET,£F=0. 

END IP, OK. 

RETURN, CLNEE. 

REQUEST , CLNEE , PP , SN=NCEL62 . 

PTN5,DB. 

LGO. 

CATALOG , CLNEE , ID=VSE . 

*EOR 

PROGRAM  NESACL( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=OUTPUT) 

INTEGER  BASCON ,CURCON ,BAS ,CUR,CUROTH 
INTEGER  CCOST 
INTEGER  COTH,COST 

CHARACTER  *8  CURSQP,BASQPT ,CSQP,BPT 
CHARACTER  *5  DEIS,DEIS1 
CHARACTER  *3  ETYPE 
CHARACTER  *1  N,N1 ,C 
0PEN(9,PILE*'NESA2' ,RECL*175) 

0PEN(8,PILE=' CLNEE' ) 

REWIND  8 
REWIND  9 
NREC=18519 
C 
C 
C 

C  NREC=THE  NUMBER  OP  LOGICAL  RECORDS  ON  THE  NEESA  TAPE  AND  DISK 

C 

C 

C 

C 

N1='N' 

DEIS1=' 00000' 

NDEIS=0 

WRITE(6,105) 

DO  100  I=1,NREC 

READ ( 9 , 1 1 0 ) N , DEIS ,CURSQP ,CUROTH ,C ,BASQFT , BASCON ,CURCON , 

1  COST, ETYPE 
IP(C.EQ. '1 ' )G0  TO  201 
IF(C.EQ. '2' )G0  TO  202  . 

IPtC.EQ.  '3'  ko  TO  203 
IF(C.EQ. '4' )G0  TO  204 
IF(C.EQ. '5' )G0  TO  205 
IF(C.EQ. '6' )G0  TO  206 
IF(C.EQ. '7' )G0  TO  207 
IP(C.EQ. '8' )G0  TO  208 
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PROGRAM  NESACL  (CONTINUED) 


IF(C.EQ. '9' )GO  TO  209 
IP(C.EQ. 'A' )G0  TO  201 
IP(C.EQ. 'B' )G0  TO  202 
IP(C.EQ. 'C  )G0  TO  203 
IP(C.EQ. 'D* )G0  TO  204 
IP(C.EQ. 'E* )G0  TO  205 
IP(C.EQ. 'P' )G0  TO  206 
IPCC.EQ. 'G' )G0  to  207 
IP(C.EQ. 'H' )G0  TO  208 
IPCC.EQ. )G0  TO  209 
IP(C.EQ. 'J' )G0  TO  219 
IPCC.EQ. 'K' )G0  to  220 
IPCC.EQ. 'L' )G0  to  221 
IP(C.EQ. 'M' )G0  TO  222 
IP(C.EQ. 'N' )G0  TO  223 
IP(C,EQ. 'O' )GQ  TO  224 
IP(C.EQ.  'P'  ko  TO  225 
IF(C.EQ. 'Q' )G0  TO  226 
IP(C.EQ. 'R' )G0  TO  227 
IP(C.EQ. '  ' )G0  TO  228 

200  CUR0TH*CUR0TH*10 
GO  TO  20 

201  CUR0TH=CUR0TH*10+1 
GO  TO  20 

202  CUR0TH=CUR0TH*10+2 
GO  TO  20 

203  CUR0TH=CUR0TH*10+3 
GO  TO  20 

204  CUR0TH=CUR0TH*10+4 
GO  TO  20 

205  CUR0TH=CUR0TH*l0+5 
GO  TO  20 

206  CUR0TH=CUR0TH*10+6 
GO  TO  20 

207  CUR0TH=CUR0TH*10+7 
GO  TO  20 

208  CUR0TH=CUR0TH»10+8 
GO  TO  20 

209  CUR0TH=CUR0TH*10+9 
GO  TO  20 

219  CUR0TH=(CUR0TH*10+1 )*(-1 ) 
GO  TO  20 

220  CUR0TH=(CUR0TH*10+2)*(-1 ) 
GO  TO  20 

221  CUR0TK=(CUR0TH*10+3)*(-1 ) 
GO  TO  20 

222  CUR0TH=(CUR0TH*10+4)*(-1 ) 
GO  TO  20 

223  CUR0TH=(CURCTH*10+5)*(-1 ) 
GO  TO  20 


PROGRAM  NESACL  (CONTINUED) 


224  CUR0TH={CUR0TH*10+6)*(-1  ) 

GO  TO  20 

225  CUR0TH={CUR0TH*10+7)*(-1) 

GO  TO  20 

226  CUROTH=  C  CUROTH* 1 0+8 ) * ( -1 ) 

GO  TO  20 

227  CUR0TH=(CUR0TH*10+9)*(-1 ) 

GO  TO  20 

228  CUR0TH=(CUR0TH*10)*(-1) 

20  CONTINUE 

IP(N.NE. 'N' .AND.N.NE. 'D' )G0  TO  100 
IPCDEIS.NE.DEIS! .OR.N.NE.Nl )G0  TO  40 
IP(ETYPE.EQ. 'ELC  )G0  TO  30 
GO  TO  100 
30  CUR*:CURCON+CUR 
BAS=BASCON+BAS 
CCOST=COST+CCOST 
GO  TO  100 

40  IF(I.EQ.1)G0  TO  50 

WRITE(8,120)N1 ,DEIS1 , CSQP, COTE, BPT , BAS , CUR, CCOST 
NDEIS=NDEIS+1 

WRITE(6,120)N1 ,DEIS1 , CSQP, COTE, BPT, BAS, CUR, CCOST 
50  DEIS1»DEIS 
N1«N 
CC0ST=0 
CUR=0 
BkS=Q 

CSQP=CURSQP 

COTB=CUROTH 

BPT=BASQPT 

IP(ETYPE.EQ. 'ELC  )G0  TO  60 
GO  TO  100 
60  CUR=CURCON 
CCOST=COST 
BAS=BASCON 
100  CONTINUE 

IF(N.NE. 'N' .AND.N.NE. 'D' )G0  TO  102 
WRITE(8,120)N1 ,DEIS1 , CSQP, COTE, BPT , BAS , CUR, CCOST 
WRITE(6,120)N1 ,DEIS1 , CSQP, COTE, BPT, BAS, CUR, CCOST 
NDEIS=NDEIS+1 
102  CONTINUE 

WRITE(6,130)NDEIS 

105  PORMATdX,  'DEISII'  ,3X,  'CURSQP'  ,4X,  'CUROTS'  ,4X,  'BASQFT'  , 
1 4X , ' TOTBASC ' , 3X , ' TOTCURC ' , 3X ,  '  COST ’ ) 

1 10  P0RMAT(22X,A1 , A5 ,39X, AS , 17 ,A1 , A8 ,218 ,8X, 18 , 1 8X , A3 ) 

120  P0RMAT(1X,A1 , A5 ,2X , A8 ,2X , I8,2X , A8,2 ( 2X, 18) , 18 ) 

130  FORMAT ( 1 X ,’ THE  NUMBER  OF  DEISII  UICS  IS  ’,18) 

STOP 

END 
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PROGRAM  FACCL 


FACCL ,T60000  ,CH1 00000 .DEMONSABER ,43455SD2 . 

RFL( 100000) 

MOUNT ,SN=NCEL62 , VSN=V20 ,PW=MP6284 • 

ATTACH ,CLNEE , ID=VSE ,SN=NCEL62 . 

ATTACH ,PACS4 , ID=VSE , SN=NCEL62 . 

REQUEST ,CLPAC ,PP,SN=NCEL62 . 

PTN5,D0=L0NG,DB. 

LGO  • 

CATALOG, CLP AC, ID=VSE. 

*EOR 

PROGRAM  PACCLdNPUT  , OUTPUT  ,TAPE5=INPUT  ,TAPE6=0UTPUT) 
CHARAGTER*6  UIC,PRN 
CHARACTER*6  DEIS (600) 

CHARACTER*6  A1 ( 1 000) ,A2( 1 000) ,A3( 1 000) ,A4( 1000) ,A5 ( 1 000) 
CHARACTER*!  A6(1000) 

CHARACTER*2  A7(1000) 

CHARACTER*8  A8(1000) 

CHARACTER*!  A9(1000) 

CHARACTER*4  A! 0( ! 000) , A! ! ( ! 000) 

CHARACTER*5  A!2(!000) 

CHARACTER*2  A! 3(1000) 

CHARACTER*5  A! 4(1000) 

CHARACTER* 6  A1 5(1000) 

0PEH(9,PILB=’PACS4' ,RECL*850) 

0PEN(7,PILE='CLNEE' ) 

0PEN(8,PILE='CLPAC' ) 

REWIND  7 
REWIND  8 
REWIND  9 
C 
C 
C 

C  NDEIS=THE  NUMBER  OP  DEISII  ACTIVITIES. 

C 

C 

C 

C 

NDEIS=515 

INSUM=0 

READ(7,20)(DEIS(I),I=1 ,NDEIS) 

20  FORMAT ( IX, A6) 

C 

C 

C 

C  NREC=THE  NUMBER  OF  LOGICAL  PACSO  RECORDS. 

C 

C 

C 

NREC=192065 

IREC=NREC/1000 


o  o  o 


PROGRAM  FACCL  (CONTINUED) 

IREST=NREC-IREC*1 000 

IRECP=IREC+1 

DO  201  IM=1,IRECP 

IP ( IM . EQ . IRECP ) JCOUNT= IREST 

IP(IM.LT.IRECP)JC0UHT=1OOO 

DO  100  I=1,JC0UNT 

READ(9,30)A1(I),A2(I).A3{I),A4(I),A5(I),A6(I) 

1A7(I).A8(I),A9(I),A10(I),A11(I).A12(I),A13(I) 

1AU(I),A15(I) 

30  FORMAT (5A6,29X,A1 ,52X,A2 ,69X,A8,7X,A1 ,2X, 
12A4.157X,A5,1X,A2,28X,A5,4UX, 

1  A6) 

100  CONTINUE 


Q**************************************************- 

C 

C  VARIABLE  DESCRIPTION* 

C 


c 

A1  = 

EPD  UIC 

c 

A2  :: 

PLANT  PROPERTY  UIC 

c 

A3  = 

MAJOR  CLAIMANT  UIC 

c 

A4  = 

ACTIVITY  UIC 

c 

A5  * 

PROPERTY  RECORD  NUMBER 

c 

A6  3s 

FACILITY  TYPE 

c 

A7  = 

STATE  CODE 

c 

A8  = 

AREA 

c 

A9  = 

CONSTRUCTION  TYPE  CODE 

c 

A10= 

YEAR  BUILT 

c 

A11  = 

YEAR  OF  LAST  CAPITAL  IMPROVEMENT 

c 

A12= 

PRIME-USE 

c 

A13= 

AREA  UNIT  OF  MEASURE 

c 

A14= 

NAVY  FACILITY  CATEGORY  CODE 

c 

A15= 

DEISII  UIC 

C 

C 

Q *********************************************** 

C 

c 

IP(IM.LE.IREC)IC0UNT=1OOO 
IP( IM.GT . IREC ) ICOUNT=IREST 
DO  99  IN=1,IC0UNT 
IP(A6(IN).NE. '2' )G0  TO  89 
DO  40  J=1 .NDEIS  • 

IP(A15(IN).EQ.DEIS(J))G0  TO  50 
40  CONTINUE 
GO  TO  89 
50  CONTINUE 
■IP=IN-1 


r»  ooo  o 


PROGRAM  FACCL  (CONTINUE) 

IP(IN.EQ.1 .AND.IM.EQ.1 )G0  TO  103 
IP(lN.EQ.1 )G0  TO  888 
GO  TO  887 

888  IP(A4(1 ).EQ.UIC.AND.A5(1 ).EQ.PRN)GO  TO  89 
887  CONTINUE 

DO  98  10=1 ,IP 

IP(A4(I0).EQ.A4(IN).AND.A5(I0).EQ.A5(IN))G0  TO  89 

98  CONTINUE 
103  INDI=1 

UIC=A4(IN) 

PRN=A5(IN) 

WRITE(8,82)A1(IN),A2(IN),A3(IN),A4(IN),A5(IN), 

1 A6(IN),A7(IN),A8(IN),A9(IN),A10(lN),A1 1 (IN), 
2A12(IN),A13(IN),A14(IN),A15(IN) 

GO  TO  99 
89  INDI=0 

99  INSOM=INSUM+INDI 


INSUM  =  THE  #  OP  RECORDS  WRITTEN  TO  CLPAC 


201  CONTINUE 

82  PORMAT(5(1X,A6) ,1X,A1 , 1 X,A2 ,1 X,A8 , 1 X , A1 ,1X, 
1A4,1X,A4,1X,A5,1X,A2,1X,A5,1X,A6) 

WRITE(6,101 ) INSUM 

101  PORMATdX, 'THE  NUMBER  OP  PACILITIES  WRITTEN  TO  CLPAC, 
1 •  IS  EQUAL  TO' ,16) 

STOP 

END 


PROGRAM  COST 


iiTDATA.DthOMSABER, 4345^302  . 
r'.0UiNT,3N=NCEL62,VSN  =  V20,PW=KP6284. 
ATTACH,CLNEE,1D=VSE,SN=NCEL62. 

REQUEST, COSTD, PE. 
rTN5. 

LOG. 

CATALOG, COSTD,ID=EIDE. 

*EOR 

PROGRAM  COD  AT  A  (INPUT,  OUTPUT, TAPE3  =  ll'iPUT,TAPE6=ClJTPUT) 
DIMENSION  T0TSQ(600) ,ELE{bOO), COST (600) , PER (bOO) , 
lESQET(bOC) 

INTEGER  S,0,B,E,C,BFT 
0PEN(8,EILE='CLNEE' ) 

OPEN(^,EILE='COSTL' ) 

J=0 

c 

c 

NDEIS  =  314 
C 
C 

DO  101  1=1 , NDEIS 

READ ( b, 100) 3,0, BET, B,E,C 

1  GO  FORMAT ( 9X , 18 , 2X , Ib , 2X , 18 , 2X , 18 , 2X , 18 , 18 ) 

IE(C.LT.1  KO  TO  101 
IE(E.LT.1 )G0  TO  101 
1E(B.LT.1 )G0  TO  101 
IE(S.LT.1)G0  TO  101 
J=J  +  1 

T0TSe( J )=S+0 

ELE(J )=EL0AT(E-B)*1 1 .6 

COST(J )=C/(E*1000.  ) 

PER ( J ) = 1 00 . ♦FLOAT ( E-B ) /FLOAT (B ) 

ESQFT(J)=ELE(J )/TOTSQ(J ) 

IF(PER(J ) .GT.100. )G0  TO  101 
CSQFT=T0TSG(J )-ELOAT(BFT) 

WRITE(3»,200)E;LE(  J  )  ,COST(J  )  ,PER(J  )  ,ESQFT(  J  )  ,CSQFT 

2  GO  t  OHI'.AT  ( 1  X ,  F 1  2 . 1  , 1  X  ,  Fb  .  4 , 1  X ,  F 1  2  .  b  ,  1  X ,  F 1  2 . 3 , 1  X  ,  F 1  2 . 1  ) 
1o1  CCr.TINUE 

Ei.  D 
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PROGRAM  STDATA 


STDATA,T1 0000, CM500000. DEMONSABER, 43455SD2. 
RPL( 300000) 

MOUNT , SN=NCEL62 , VSN=V20 , PW=MP6284 . 

ATTACH ,CLNEE , ID=VSE ,SN=NCEL62 . 

ATTACH ,CLPAC , ID=VSE ,SN=NCEL62 . 

PURGE, REG1 ,ID=VSE,SN=NCEL62. 

SKIP, OK. 

EXIT,S. 

SET,EP=0. 

ENDIP,OK. 

RETURN, REG  1. 

PURGE, REG2,ID=VSE,SN=NCEL62.  ’ 

SKIP, OK. 

EXIT,S. 

SET,EP=0. 

ENDIP,OK. 

RETURN, REG2. 

PURGE , REG3 , ID=VSE , SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET,EP=0. 

ENDIP,OK. 

RETURN, REG3. 

PURGE , REG4 , ID=VSE , SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET,EP=0. 

END IP, OK. 

RETURN, REG4. 

PURGE ,REG5 , ID=VSE ,SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET,EP=0. 

ENDIP,OK. 

RETURN, REG5. 

PURGE ,REG6 , ID=VSE , SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET ,EP=0. 

ENDIP,0K. 

RETURN, REG6. 

PURGE .REG7 , ID=VSE , SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET,EF=0. 

ENDIP,OK. 

RETURN, REG7. 

PURGE, REGS, ID=VSE,SN=NCEL62. 

SKIP, OK. 

EXIT,S. 
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PROGRAM  STDATA  (CONTINUED) 


SET,EP=0. 

END IP, OK. 

RETURN, REG8. 

PURGE , REG9 , ID= VSE , SN=NCEL62 . 

SKIP, OK. 

EXIT,S. 

SET,EP=0. 

BNDIP,OK. 

RETURN, REG9. 

PURGE,REG10,ID=VSE,SN=NCEL62. 

SKIP, OK. 

EXIT,S. 

SET ,EP=0. 

ENDIP,OK, 

RETURN, REG10. 

REQUEST, REG1 ,PP,SN=NCEL62 . 

REQUEST , REG2 , PP , SN=NCEL62 . 

REQUEST , REG3 , PP , SN=NCEL62 . 

REQUEST , REG4 , PP , SN=NCEL62 . 

REQUEST ,REG5 ,PP,SN=NCEL6 2 . 

REQUEST , REG6 , PP , SN=NCEL62 . 

REQUEST ,REG7 , PP , SN=NCEL62 . 

REQUEST ,REG8 , PP , SN=NCEL62 . 

REQUEST ,REG9 ,PP,SN=NCEL62 . 

REQUEST , REG1 0 , PP , SN»NCEL62 . 

FTN5. 

LGO. 

CATALOG,REG1  ,ID=VSE. 

CATALOG ,REG2 , ID=VSE . 

CATALOG , REG3 , ID= VSE . 

CATALOG ,REG4 , ID=VSE . 

C AT ALOG ,REG5 , ID=VSE . 

CATALOG , REG6 , ID= VSE . 

CAT ALOG ,REG7 , ID=VSE . 

CAT ALOG , REGS , ID=VSE . 

CATALOG , REG9 , ID=VSE . 

CATALOG ,REG1 0 , ID=VSE . 

*EOR 

PROGRAM  STDATAdNPUT, OUTPUT, TAPE5=INPUT,TAPE6*0UTPUT) 
DIMENSION  NGSET (10), ICCNS ( 20 ) , COTH ( 600 ) , BPT ( 600 ) 
DIMENSION  COST (600) 

DIMENSION  BAS ( 600 ) , IMAX( 20 ,10) ,CSQP( 600 ) 

DIMENSION  ELE(600),IMIN(20,10) 

CHARACTER*6  GEO (10, 100) 

CHARACTER*2  ST AIN (600) 

CHARACTER*2  STA(10,50) 

CHARACTER*6  DEIS(600) ,GE0IN(600) ,A1  ,A2 ,A3 , A4 ,A1  5 
CHARACTER*!  A6 
CHARACTER*!  A9 
CHARACTER*2  A7 


ooooooooooooooooooooooooooooooooooo 


PROGRAM  STDATA  (CONTINUED) 

CHARACTER*2  A1  3 
CHARACTER*6  A5 
INTEGER  Aa,A10,A1 1  ,A12,AU 
INTEGER  DARE A (600, 20) 
CHARACTER*!  CC 
11=0 
12=0 
13=0 
14=0 
15=0 
16=0 
17=0 
18=0 
19=0 
110=0 


VARIABLE  LIST 


THE  DATA  CAN  BE  ORGANIZED  BY  GEOGRAPHICAL  AREA, 
CONSTRUCTION  TYPE,  AND  CCN. 


GEOGRAPHICAL  SELECTIONS 
(  1) STATE 

(  9^17170  IITP 

(  3) PLANT  PROPERTY  UIC 
(  4) MAJOR  CLAIMANT  UIC 
(  5) ACTIVITY  UIC 
(  6)DEISII  UIC 

CONSTRUCTION  SELECTIONS 
(  1 )CONSTRUCTION  CODE 
(  2) YEAR  BUILT 

(  3) LAST  CAPITAL  IMPROVEMENT  YEAR 

CCN  SELECTIONS 
(  1)NAVY  FACILITY  CCN 
(  2) PRIME  USE  CCN 


IGEO  IS  THE  GEOGRAPHICAL  SELECTION  INDEX 

EG.  IP  IGEO  =  1  THE  DATA  WILL  BE  ORGANIZED  BY  STATE 

ICON  IS  THE  CONSTRUCTION  TYPE  INDEX 

EG.  IF  ICON  =  2  THE  DATA  WILL  BE  ORGANIZED  BY  YEAR  BUILT 


A-ll 
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PROGRAM  STDATA  (CONTINUED) 

ICON  IS  THE  CCN  TYPE  INDEX 

EG.  IP  ICON  =  2  THE  DATA  WILL  BE  ORGANIZED  BY  PRIME  USE  CCN 


IGEO  MUST  BE  GREATER  THAN  OR  EQUAL  TO  1 

IP  ICON  =  0  THE  DATA  ARE  NOT  ORGANIZED  BY 
CONSTRUCTION  TYPE 

ICON  MUST  BE  GREATER  THAN  OR  EQUAL  TO  1 


INPUT  INDICES 


READ ( 5 , 1 0 ) IGEO , ICON , ICCN 
10  P0RMAT(1X,I1  ,1X,I1  ,1X,I1  ) 
WRITE(6,5550) 

5550  FORMAT (IX, 'INDICES  INPUT') 
VRITE( 6 , 1 0 ) IGEO , ICON , ICCN 


THE  NUMBER  OP  GEOGRAPHICAL  DIVISIONS  »  NG 

*******  note  the  maximum  number  op 

GEOGRAPHICAL  DIVISIONS  =  10  ♦*♦♦♦***** 
THE  NUMBER  OP  ELEMENTS  PER  DIVISION  I  =  NGSET(I) 

THE  ELEMENTS  IN  UIC  GROUP  I  =  GE0(I,J) 

THE  ELEMENTS  IN  STATE  GROUP  I  =  STA(I,J) 

THE  MAXIMUM  NUMBER  OP  UIC'S  IN  A  UIC  GROUPING  IS  600 


READ(5,101 )NG 

101  P0RMAT(1X,I2) 

WRITE(6,5551  ) 

5551  FORMAT (IX, 'INPUT  #  OP  GEO  DIVISIONS') 

WRITE(6,101 )NG 
READ(5,102)(NGSET(I),I=1 ,NG) 

102  P0RMAT(5(1X,I4)) 

WRITE(6,5552) 

5552  FORMAT (IX, 'INPUT  #  OP  ELEMENTS  PER  GEO  DIVISION') 
WRITE(6.,102)(NGSET(I),I  =  1  ,NG) 

IPUGEO.EQ.I  )G0  TO  105 
WRITE(6,5553) 

5553  F0RMAT( IX, 'INPUT  UICS  PER  GROUP') 

DO  103  1=1  ,NG 

READ(5,104)(GE0(I,J) ,J=1 ,NGSET(I) ) 

WRITE(6,104) (GE0(I,J) ,J=1 ,NGSET(I) ) 


ooooo  o o o o o o o o o o o o o 


PROGRAM  STDATA  (CONTINUED) 


103  CONTINUE 

104  PORMAT(5(1X,A6)) 

GO  TO  108 

105  CONTINUE 
WRITE(6,5554} 

5554  PORMATdX, 'INPUT  STATES  PER  GROUP') 
DO  106  1=1 ,NG 

READ{5,107)(STA(I,J),J=1 ,NGSET(I)) 
WRITE(6,107)(STA(I,J),J=1 ,NGSET(I)) 

106  CONTINUE 

107  P0RMAT(5(1X,A2)) 

108  CONTINUE 


INPUT  CONSTRUCTION  INPORMATION  OP  INTEREST 


CONSTRUCTION  CODE  =  CC 

MINYR  AND  MAXYR  DEPINE  THE  BUILDING  PERIOD 

MINYRI  AND  MAXYRI  DEFINE  THE  CAPITAL  IMPROVEMENT  PERIOD 


IPdCON.EQ.I  )G0  TO  201 
IP(IC0N.EQ.2)G0  TO  202 
IF(IC0N.EQ.3)G0  TO  203 


THE  DATA  ARE  NOT  ORGANIZED  BY  CONSTRUCTION  TYPE  IP  CC  =  0 


GO  TO  204 

201  READ(5,210)CC 
210  P0RMAT(1X,A1 ) 

WRITE(6,5555) 

5555  PORMATC IX, 'INPUT  CONSTRUCTION  CODE') 
WRITE(6,210)CC 

GO  TO  204 

202  READ (5, 220) MINYR, MAXYR 
220  FORMAT (IX, 14, IX, 14) 

WRITE(6,5556) 

5556  FORMAT (IX, 'INPUT  CONSTRUCTION  YEARS') 
WRI TE ( 6 , 220 ) MINYR , MAXYR 

GO  TO  204 

203  READ (5, 230) MINYRI, MAXYRI 
230  FORMAT( 1X,I4,1X,I4) 

WRITE(6,5557) 

5557  FORMAT (IX, 'INPUT  IMPROVEMENT  YEARS') 
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PROGRAM  STDATA  (CONTINUED) 

WRI TE ( 6 , 230 ) MINYRI , MAXYRI 
204  CONTINUE 


INPUT  CCN  DATA 


I  IS  THE  CCN  SET  INDEX 

J  IS  THE  CCN  ELEMENT  INDEX 

■JCCN  =  THE  NUMBER  OP  CCN  SETS 

THE  MAXIMUM  NUMBER  OP  CCN  SETS  IS  20 

ICCNS(I)  =  THE  NUMBER  OP  DATA  LINES  POR  SET  I 


READ (5, 301 )JCCN 

301  P0RMAT(1X,I2) 

WRITE(6,5558) 

5558  PORMAT( IX, 'INPUT  #  OP  CCN  SETS') 

WRITE(6,301 )JCCN 
READ(5,302)(ICCNS(I),I=1 ,JCCN) 

302  PORMAT(5(1X,I3)) 

¥RITE(6,5559) 

5559  PORMAT( IX, 'INPUT  #  OP  LINES  PER  CCN  SET') 
¥RITE(6,302)(ICCNS(I),I=1  ,JCCN) 

WRITE(6,5560) 

5560  PORMAT( IX, 'INPUT  MIN  AND  MAX  CCNS ' ) 

DO  380  1=1  ,JCCN 

DO  370  J=1 ,ICCNS(I) 

READ (5 ,303 ) IMIN( I , J ) , IMAX( I , J ) 
WRITE(6,303)IMIN(I,J),IMAX(I,J) 

IMIN(I,J)  EQUALS  THE  MINIMUM  CCN  OP  GROUP  J  IN  CCN  SET  I 
IMIN(I,J)  EQUALS  THE  MAXIMUM  CCN  OP  GROUP  J  IN  CCN  SET  I 
EXAMPLE:  IP  IMIN(1 ,3)=20000  AND  IMAX( 1 ,3 ) =30000 ,  THE 

CCNS  >  20000  AND  THE  CCNS  <  30000  ARE  INCLUDED 
IN  SET  1 .  THIS  IS  THE  THIRD  SUCH  GROUPING  IN 
SET  1  THAT  DEPINES  THE  SET. 

303  PORMAT(1X,I5,1X,I5) 

370  CONTINUE 

380  CONTINUE 

DO  4057  1=1,600 
DO  4057  J  =  1  ,20 
DAREA(I,J)=0 

4057  CONTINUE 
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PROGRAM  STDATA  (CONTINUED) 


NFAC  =  THE  NUMBER  OF  RECORDS  OF  FILE  CLFAC 


NFAC=70357 
OPEN(9,FILE= ' CLFAC • ) 
OPEN(8,FILE='CLNEE' ) 
REWIND  8 
REWIND  9 
NDEIS=5U 


NDEIS  =  THE  NUMBER  OP  RECORDS  OP  PILE  CLNEE 


DO  500  1=1, NDEIS 

READ ( 8 , 501 ) DEIS ( I ) , ICSQP , ICOTH , IBPT , IBAS , lELE , ICOST 
501  F0RMAT(1X,A6,2X,I8,2X,I8,2X,I8,2(2X,I8),I8) 
ELE(I)=IELE*11 .6 
BAS(I)=IBAS*11 .6 
COTH(I)=ICOTH 
CSQP(I)=ICSQP 
BPTU)=IBPT 
COST(I)=ICOST/ELE(I) 

500  CONTINUE 
;  DO (LONG) 

DO  750  1=1 ,NPAC 
;  D0(L0NG=0) 

READ  ( 9 ,733 ,  ERR=750 )  A1  ,  A2  ,  A3  ,  A4 ,  A5  ,  A6  ,  A7 ,  A8 ,  A9  , 
1A10,A11  ,A12,A13,AU,A15 
733  PORMAT(5(1X,A6)  ,1X,A1  ,1X,A2,1X,I8,1X, 

1A1  ,1X,I4,1X,I4,1X,I5,1X,A2,1X,I5,1X,A6) 

IP(A13-NE. 'SF' )G0  TO  9556 
DO  749  J=1 , NDEIS 
IP(DEIS(J) .NE.A15)G0  TO  /49 
IPdGEO.EQ.I  )G0  TO  741 
IP(IGEj.EQ.2)G0  to  742 
IP(lGE0.EQ.3)G0  TO  743 
IP(IGE0.EQ.4)G0  TO  744 
IP(IGE0.EQ.5)G0  TO  745 
IPClGEb.EQ.6)G0  TO  746 
GO  TO  747 

STAIN(J)=  THE  STATE  THAT  DEIS(J)  IS  LOCATED  IN 
GEOIN(J)=  THE  UIC  THAT  DEIS{J)  IS  LOCATED  IN 
(41  STAIN(J)=A7 
GO  TO  (60 


o  o 


PROGRAM  STDATA  (CONTINUED) 


742  GEOm(J)=A1 
GO  TO  (60 

743  GE0IN(J)=A2 
GO  TO  760 

744  GE0m(J)=A3 
GO  TO  760 

745  GE0IN(J)=A4 
GO  TO  760 

746  GE0IN(J)=A15 

760  CONTINUE 

IP(ICON.EQ.O)GO  TO  730 
IPCICON.EQ.I }G0  TO  720 
IP(IC0N.EQ.2)G0  TO  721 
IP(IC0N.EQ.3)G0  TO  722 
GO  TO  805 

720  IP(CC.EQ.A9)G0  TO  730 
GO  TO  801 

721  IP(A10.GE.MINYR.AND.A10.LE.MAXYR)G0  TO  730 
GO  TO  801 

722  IP(A1 1 .GE.MINYRI.AND.Al 1 .LE,MAXYRI)G0  TO  730 
GO  TO  801 

730  CONTINUE 

DO  780  K=1,JCCN 
DO  781  L=1,ICCNS(K) 

IPdCCN.EQ.l  )G0  TO  782 
IP(ICCN.EQ.2)G0  TO  783 
GO  TO  802 

782  IP(A14.GE.IMIN(K,L)-AND.A14.LE.IMAX(K,L))G0  TO  792 
GO  TO  /81 

792  DAREA(J,K)=DAREA(J,K)+A8 
GO  TO  801 

783  IP(A12.GE.IMIN(K,L)*AND.A12.LE.IMAX(K,L))G0  TO  793 
GO  TO  781 

793  DAREA(J,K)=DAREA(J,K)+A8 
GO  TO  801 

781  CONTINUE 

780  CONTINUE 

801  CONTINUE 

DAREA(J,K)=  THE  AREA  IN  SQ.  FT.  FOR  DEIS(J)  AND  CCN 
GROUP  K 
GO  TO  750 

802  WRITE(6,804) 

804  P0RMAT(1X,'N0  CCN  INDEX  WAS  SPECIFIED') 

GO  TO  9999 

805  WRITE(6,806) 

806  FORMAT (IX, 'THERE  IS  AN  ERROR  IN  THE  CONSTRUCTION', 

1 '  CODE' ) 

GO  TO  9999 

747  WRITE(6,810) 

810  FORMAT( IX, 'THERE  IS  AN  ERROR  IN  THE  IGEO  INPUT') 


PROGRAM  STDATA  (CONTINUED) 


GO  TO  9999 
803  CONTINUE 

749  CONTINUE 

750  CONTINUE 

OPENdl  ,PILE='REG1  '  ,RECL=264) 

0PEN(12,PILE='REG2' ,RECL=264) 

OPEN ( 1 3 ,PILE= ' REG3^ , RECL=264 ) 

0PEN(U,PILE='REG4'  ,RECL=264) 

OPEN ( 1 5 ,PILE= • REG5 ' ,RECL=264 ) 

OPEN ( 1 6 ,PILE= • REG6 ' , RECL=264 ) 

0PEN(1 /,PILE='REG/' ,RECL=264) 

0PEN(18,PILE='REG8' ,RECL=264) 

0PEN(19,PILE='REG9' ,RECL=264) 

0PEN(20,PILE='REG10' ,RECL=264) 

DO  1000  I=1,NDEIS 
DO  1001  J=1,NG 
DO  1002  K=1,NGSET(J) 

IPdGEO.EQ.I  )G0  TO  3001 
IP(GEO(J,K) .EQ.GEOIN(I))GO  TO  1003 
GO  TO  1002 

3001  IP(STA(J,K).EQ.STAIN(I))GO  TO  1003 

1002  CONTINUE 
1001  CONTINUE 

GO  TO  1000 

1003  IP(J.EQ.1)G0  TO  1100 
IP(J.EQ.2)G0  TO  1200 
IP(J.EQ.3)G0  TO  1300 
IP(J.EQ.4)G0  TO  1400 
IP(J.EQ.5)G0  TO  1500 
IP(J.EQ.6)G0  TO  1600 
IP(J.EQ. /)G0  TO  1 (00 
IF(J.EQ.8)G0  TO  1800 
IP(J.EQ.9)G0  TO  1900 
IP(J.EQ.10)G0  TO  2000 
WRITE(6,1010) 

1010  FORMAT (IX, 'THERE  IS  AN  ERROR  IN  THE  GEOGRAPHICAL', 
1 '  GROUPING  ROUTINE' ) 

GO  TO  9999 

1100  WRITE(11 ,1011 )DEIS(I),ELE(I),BAS(I),COTH(l), 

1 (DAREA(I,M),M=1 ,JCCN) 

101 1  FORMAT (1X,A6, IX, F1 1  .1  ,1X,P1 1  .1  , 1  X,F1  0 .0 ,20(  18) ) 
11=11+1 

GO  TO  999 

1200  vmiTE(12,1011 )DEIS(I),ELE(I),BAS(I),C0TH(I), 

1 (DAREA(I,M),M=1 ,JCCN) 

12=12+1 
GO  TO  999 

1300  WRITE(13,101 1  )DEIS(I)',ELE(I),BAS(I)  ,C0TH(I) , 

1 (DAREA(I,M),M=1 ,JCCN) 

13=13+1 
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PROGRAM  STDATA  (CONTINUED) 


GO  TO  999 

UOO  WRITE(U.1011  )DEIS(I),ELE(I),BAS(I),COTH(I), 

1  (DAREA(I,M),M=1 ,JCCN) 

I4=U+1 
GO  TO  999 

1500  WRITB(15,1011 )DEIS(I).ELE(l),BAS{I),COTH(I), 

1  (DAREA(I,M),M=1 ,JCCN) 

15=15+1 
GO  TO  999 

1600  WRITB(16,1011  )DEIS(I),ELE(I),BAS(l),COTH(I), 

1  CDAREA(I,M),M=1 ,JCCN) 

16=16+1 
GO  TO  999 

1  (00  ViRITB(l7,1011  )DEIS(l),ELE(I).BAS(I),COTH(I), 

1  (DAREA(I,M),M=1 ,JCCN) 

I(*I(+1 
GO  TO  999 

1800  WRITB(18,101 1 )DEIS(I) ,BLE(I) ,BAS(I) ,COTH(I) , 

1 (DARBA(I,M),M=1 .JCCM) 

18=18+1 
GO  TO  999 

1900  VfRITB(19,lOl1  )DEIS(I),ELE(I),BAS(I),COTH(I), 

1 (DARBA(I,M),M»t ,JCCN) 

19=19+1 
GO  TO  999 

2000  WRITB(20,1011 )DBIS(I),ELE(I),BAS(I),COTH(I), 
1(DAREA(I,M),M=1 ,JCCN) 

110=110+1 

999  WRITE(6,1012)J,DEIS(I),ELB(I),BAS(I),C0TH(I), 

1 (DARBA(I,M),M=1 ,3) 

1000  CONTIHUE 

WRITE( 6,2002) 

2002  FORMAT (IX, 'THE  NUMBER  OP  DEIS  RECORDS  IN  EACH 
1 'GEOGRAPHICAL  DIVISION') 

1012  P0RMAT(1X,I2,1X,A6,1X,P1 1  .1  ,1X,P1 1  . 1  , 1  X,P1  0 .0 , 
13(1X,I12)) 

¥RITE(6,2001 )I1 .12,13,14,15,16,17,18,19,110 

2001  P0RMAT(10(1X,I3) ) 

9999  CONTINUE 

GO  TO  9557 

9556  WRITE(6,9558) 

9558  FORMAT (1X, 'UNITS  ARE  NOT  ALL  IN  SQ.  FT.') 

9557  CONTINUE 
CL0SE(8) 

CL0SE(9) 

CLOSECII ) 

CL0SE(12) 

CL0SE(13) 

CL0SE(14) 

CL0SE(15) 
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I 


PROGRAM  STDATA  (CONTINUED) 

I 

CL0SE(16) 

CL0SB(17) 

CL0SE(18) 

CLOSE(19) 

I  CLOSE (20) 

I  STOP 

END 

*EOR 


1  0  2 

GEO.CONSTR,  AND 

CCN  INDICES 

1 

NUMBER  OP  GEO  OR  STATE  GROUPS 

22 

NUMBER  OP  UICS  OR  STATES  PER  GROUP 

24  10 

36  34 

09 

44  25 

11  48 

22 

28  01 

13  12 

45 

37  51 

06  04 

35 

53  41 

9 

NUMBER  OP  CCN  SETS 

2 

1  1 

1  t 

♦♦  THE  NUMBER 

OF  LINES  FOR  EACH  CCN 

SET 

2 

1  1 

3 

♦♦  THE  NUMBER 

OP  LINES  POR  EACH  CCN 

SET 

11100 

16999 

PORT  FACILITIES 

MIN, MAX 

1 

40000 

49999 

STORAGE 

MIN, MAX 

1 

17000 

19999 

TRAINING 

MIN, MAX 

2 

20000 

21999 

MAINTENANCE 

MIN, MAX 

3 

22000 

29999 

PRODUCTION 

MIN, MAX 

4 

30000 

39999 

LABORATORIES 

MIN, MAX 

5 

50000 

54999 

MEDICAL 

MIN, MAX 

6 

55000 

59999 

DISPENSARIES 

MIN, MAX 

6 

60000 

69999 

ADMINISTRATION 

MIN, MAX 

7 

70000 

72099 

PAMILY  HOUSING 

MIN, MAX 

8 

73000 

79999 

COMMUNITY 

MIN, MAX 

9 

80000 

89999 

UTILITIES 

MIN, MAX 

9 

72100 

72999 

TROOP  HOUSING 

MIN, MAX 

9 

PROGRAM  PROBASE 


STDATA.Dl!;hONSABER,43455SD2. 

MOUNT, SN=:NCEL62,VSN=V20,PW=KP6284. 

ATTACH, CLNEE,ID=VSE,SN=NCEL62. 

REQUEST,DIEPD,PE. 

ETNb . 

LOO. 

CATALOG ,DIFFD , ID=EIDE. 

*EOR 

PROGRAM  DIFDATA( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=OUTPUT) 
CHARACTER*^  DEIS1 
CHARACTER*!  N1 

INTEGER  CSQFT ,COTH ,BFT ,BAS ,CUR 
OPEN(  /  ,PILE='CLNEE' ) 

0PEN(8,FILE='DIFFD' ) 

C 

C 

NDEIS  =  1314 
C 
C 

DO  205  1=1 , NDEIS 

READ(  /,200)N1 ,DEIS1 , CSQFT ,COTH,BFT , BAS , CUR 
200  F0RMAT(iX,A1 ,A5,2X,I8,2X,I8,2X,I8,2X,I8,2X,I8) 

IF(N1 .NE.  'D' )G0  TO  203 
RCUR=FL0AT(CUR)*1 1 .6 
RBAS=FL0AT(BAS)*1 1 .6 
CSQFT=CSQFT+COTH 

WRITE(8,1C0)N1 ,DEIS1 , CSQFT ,RCUR ,BFT ,RBAS 
100  FORMAT ( IX, A1 , A5 , 1 X , II 0 , 1 X ,F1 1 . 1 , 1 X , 1 1 0 , 1 X , FI  1  . 1 ) 

203  CONTINUE 
END 
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PROGIIAM  REGCO 


REGR1 . DEMONSABER, 43455SD2. 

MOUNT , SN=NCEL62 , VSN=V20 , PW=MP6284 . 
ATTACHC ,COSTD , ID=EIDE . 

ATTACH, CON, ID=EIDE. 

ACCESS ,BMDP1R. 

BMDPl R, I=CON ,D=COSTD . 


PROGRAM  CON 


/PROBLEM 

/INPUT 

/Variable 

/REGRESS 

/REGRESS 

/REGRESS 

/REGRESS 

/REGRESS 


TITLE  IS  'ELE,  VS  COST’. 

VARIABLES  ARE  5.  UNIT  IS  10. 

FORMAT  IS  •(1X,P12.1  ,1X,F6.4,1X,P12.6,1X,P12.5, 
NAMES  ARE  ELE, COST , PER, ESQPT ,C SOFT . 

DEPENDENT  IS  ESQFT .  . 

INDEPENDENT  IS  COST. 

DEPENDENT  IS  ELE. 

INDEPENDENT  IS  CSQFT. 

DEPENDENT  IS  ELE. 

INDEPENDENT  IS  CSQFT, COST. 

DEPENDENT  IS  PER. 

INDEPENDENT  IS  COST. 

DEPENDENT  IS  ELE. 

INDEPENDENT  IS  COST. 


1X,P12.1  ) 


PROGRAM  REGCON 


REGR1 . DEMONSABER, 43455SD2. 

MOUNT, SN=NCEL62,VSN=V20,PW=MP6284. 
ATTACHC.REGI , ID=VSE,SN=NCEL62 . 
ATTACH, CONTRE,ID=EIDE. 

ACCESS, BMDP9R. 
BMDP9R,I=C0NTRE,D=REG1  . 


PROGRAM  CONTRE 


/PROBLEM 

/INPUT 

/VARIABLE 

/REGRESS 


/REGRESS 


/END 


TITLE  IS  'ELE.  VS  SQ.  FT.  FOR  1975  AND  1983'* 
VARIABLES  ARE  15.  UNIT  IS  10.  . 

FORMAT  IS  '(ex, Fll  .1  ,1X,F11  .1  , IX, P10. 0,1218)'. 

NAMES  ARE  ELE,BAS ,SQPTOT ,SQPT1 ,SQPT2 ,SQPT3 ,SQFT4 , 
SQPT5 , SQPT6 , SQFT7 , SQPT8 , SQPT9 , SQPT 1 0 , SOFT 1 1 , SOFT 1 2 . 
ZERO. 

METHOD=CP. 

DEPENDENT  IS  ELE. 

INDEPENDENT  ARE  SQFTOT ,SQPT1 ,SQPT2 ,SQPT3 ,SQPT4 ,SQFT5 
SQPT6 , SQPT7 , SOFTS , SQFT9 , SQFT 1 0 , SOFT 1 1 , SOFT 1 2 . 

ZERO. 

METHOD=CP. 

DEPENDENT  IS  BAS. 

INDEPENDENT  ARE  SQFTOT, SQPT 1 ,SQPT2,SQPT3,SQPT4,SQPT5 
SQPT6,SQPT7, SOFTS, SQPT9,SQPT10, SQPT 1 1 ,SQPT12. 


PROGRAM  REGRESl 

REGR1 . DEMONSABER, 43455SD2. 

MOUNT , SN=NCEL62 , VSN=V20 , PW=MP62S4 . 
ATTACHC.REGI ,ID=VSE,SN=NCEL62. 
ATTACHC,C0NTR01 ,ID=EIDE. 

ACCESS, BMDP1R. 

BMDP1R,I=C0NTR01 ,D=REG1  . 


PROGRAM  CONTROL 


/PROBLEM 

/INPUT 

/VARIABLE 

/REGRESS 

/REGRESS 


/PRINT 

/PLOT 

/END 


TITLE  IS  'ELE.  VS  SQ.  FT.  FOR  1975'. 

VARIABLES  ARE  11.  UNIT  IS  10. 

FORMAT  IS  ’(8X,F11  .1  ,1X,F11  .1  ,1X,F10. 0,818) '  . 
NAMES  ARE  ELE,BAS .SQFTOT ,SQFT1 ,SQFT2 ,SQFT3 ,SQFT4 , 
SQPT5 ,SQPT6 ,SQFT7 ,SQFT8 . 

TYPE=ZERO. 

DEPENDENT  IS  BAS. 

INDEPENDENT  ARE  SQPT0T,SQPT1 ,SQPT2,SQFT3,SQFT4, 
SQPT5 , SQPT6 , SQPT7 , SQPT8 . 

TYPE=ZERO. 

DEPENDENT  IS  ELE. 

INDEPENDENT  ARE  SQFTOT ,SQPT1 ,SQPT2 ,SQPT3 ,SQPT4 , 
SQPT5 , SOFT  6 , SQFT7 , SQFT8 . 

CORRELATION. 

RESIDUAL. 


PROGRAM  REGRESS 

REGR1 .DEMONSABER, 43455SD2. 

MOUNT , SN=NCEL62 , VSN=V20 , PW=MP6284 . 
ATTACHC,DIPFD,ID=EIDE. 

ATTACH , CONTROL , ID=EIDE . 

ACCESS, BMDF9R. 

BMDP9R , I=CONTROL , D=DIPPD . 


PROGRAM  CONTROL 


/PROBLEM 

/INPUT 

/VARIABLE 

/REGRESS 


/REGRESS 


/END 


TITLE  IS  'ELE.  VS.  DEIS  II  D  DATA,  1975  AND  1983'. 
VARIABLES  ARE  4.  UNIT  IS  10. 

FORMAT  IS  ' (8X,I10,1X,P1 1 .1 ,1X,I10,1X,F1 1 .1 ) ' . 
NAMES  ARE  CSQPT ,CUR83 ,BSQFT ,CUR75 . 

METHOD=CP. 

ZERO. 

DEPENDENT  IS  CUR75. 

INDEPENDENT  ARE  BSQFT. 

METHODIC P. 

ZERO. 

DEPENDENT  IS  CUR83 , 

INDEPENDENT  ARE  CSQPT. 
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Table  B-1.  Numerical  Codes  Used  by  Program 
STDATA  to  Identify  States 


CODE 

STATE 

CODE 

STATE 

01 

Alabama 

30 

Montana 

02 

Alaska 

31 

Nebraska 

04 

Arizona 

32 

Nevada 

05 

Arkansas 

33 

New  Hampshire 

06 

California 

34 

New  Jersey 

08 

Colorado 

35 

New  Mexico 

09 

Connecticut 

36 

New  York 

10 

Delaware 

37 

North  Carolina 

11 

District  of  Columbia 

38 

North  Dakota 

12 

Florida 

39 

Ohio 

13 

Georgia 

40 

Oklahoma 

IS 

Hawaii 

41 

Oregon 

16 

Idaho 

42 

Pennsylvania 

17 

Illinois 

44 

Rhode  Island 

18 

Indiana 

45 

South  Carolina 

19 

Iowa 

46 

South  Dakota 

20 

Kansas 

47 

Tennessee 

21 

Kentucky 

48 

Texas 

22 

Louisiana 

49 

Utah 

23 

Maine 

50 

Vermont 

24 

Maryland 

51 

Virginia 

25 

Massachusetts 

53 

Washington 

26 

Michigan 

54 

West  Verginia 

27 

Minnesota 

55 

Wiscons in 

28 

Mississippi 

56 

Wyoming 

29 

Missouri 

APPENDIX  C 

PROGRAM  STDATA  DATA  REQUIREMENTS 


Appendix  C-1.  Data  Requirements  for  Program  STDATA 


The  following  is  an  example  of  the  user  specified  data  required  by 
program  STDATA: 


1  0 

1  2 

1 

22 

24 

10 

36 

34 

09 

44 

25 

11 

48 

22 

28 

01 

13 

12 

45 

37 

51 

06 

04 

35 

53 

41 

GEO,  CONSTR,  AND  CCN  INDICES 
NUMBER  OF  GEO  OR  STATE  GROUPS 
NUMBER  OF  UICS  OR  STATES  PER  GROUP 


9 

NUMBER  OF  CCN  SETS 

2 

1111 

**  THE  NUMBER 

OF 

LINES  FOR  EACH 

2 

1  1  3 

**  the  NUMBER 

OF 

LINES  FOR  EACH 

11100 

16999 

PORT  FACILITIES 

MIN, MAX  1 

40000 

49999 

STORAGE 

MIN, MAX  1 

17000 

19999 

TRAINING 

MIN, MAX  2 

20000 

21999 

MAINTENANCE 

MIN, MAX  3 

22000 

29999 

PRODUCTION 

MIN, MAX  4 

30000 

39999 

LABORATORIES 

MIN, MAX  5 

50000 

54999 

MEDICAL 

MIN, MAX  6 

55000 

59999 

DISPENSARIES 

MIN, MAX  6 

60000 

69999 

ADMINISTRATION 

MIN, MAX  7 

70000 

72099 

FAMILY  HOUSING 

MIN, MAX  8 

73000 

79999 

COMMUNITY 

MIN, MAX  9 

80000 

89999 

UTILITIES 

MIN, MAX  9 

72100 

72999 

TROOP  HOUSING 

MIN, MAX  9 

The  three  values  in  the  first  line  specify  the  geographical,  construction, 
and  CCN  indices,  respectively  as  described  in  the  text  in  Chapter  4.  The  for¬ 
mat  for  this  line  is  (3(1X,I1)).  The  value  of  1  for  the  geographical  index 
indicates  that  the  data  will  be  organized  by  state.  The  value  of  0  assumed  by 
the  construction  code  means  that  the  data  will  not  be  screened  for  construction 
code,  year  of  construction,  or  year  of  last  building  modification.  The  2  as¬ 
signed  to  the  CCN  index  signifies  that  the  facilities  will  be  organized  by 
prime  use  CCN.  The  geographical  and  CCN  indices  must  be  integers  greater  than 
or  equal  to  1. 

The  second  line  of  the  data  is  the  number  of  geographical  divisions  or 
zones.  The  maximum  number  of  geographical  zones  allowed  is  10.  The  format 


for  this  line  is  (IX,  12).  In  the  example  above,  one  division  is  specified. 
Line  three  provides  the  program  with  the  number  of  elements  per  geographical 
zone.  The  format  for  these  data  is  (5  (IX,  14)).  The  value  of  22  in  line 
three  signifies  that  22  states  are  in  geographical  zone  1.  If  other  geographi¬ 
cal  zones  were  specified,  then  the  corresponding  number  of  elements  per  zone 
would  be  input  on  this  line. 

In  lines  four  through  eight,  the  22  states  contained  in  geographical  zone 
1  are  identified.  The  format  for  inputting  states  is  (5  (IX,  A2).  The  begin¬ 
ning  of  each  geographical  zone  should  begin  on  a  new  line. 

If  the  data  are  to  be  screened  by  construction  index  the  next  data  line 
indicates  either  the  construction  code  (formatted  as  (IX,  Al)),  the  range  of 
construction  years  to  be  considered  (formatted  as  (2  (IX,  14))  for  the  first 
and  last  year,  respectively),  and  the  range  of  improvement  years  to  be  con¬ 
sidered  (again,  the  first  and  last  year  defining  the  range  are  formatted  as 
(2  (IX,  14)).  This  line  needs  to  be  added  only  when  the  construction  index 
does  not  equal  zero. 

Following  the  construction  values,  the  number  of  facility  classifications 
or  CCN  sets  is  imputted  with  a  (IX,  12)  format.  In  the  example  shown  above, 
this  value  is  equal  to  nine.  Directly  following  this  variable,  is  the  number 
of  CCN  ranges  that  define  each  facility  classification.  In  the  case  shown 
previously,  the  first  facility  classification  consists  of  two  CCN  ranges.  The 
ninth  classification  includes  three  such  CCN  ranges.  The  format  for  the  number 
of  CCN  ranges  required  by  each  facility  classification  is  (5  (IX,  13). 

The  last  input  required  by  the  user  is  the  CCN  ranges  defining  each 
facility  classification.  In  the  example  above,  'PORT  FACILITIES'  and  'STORAGE' 
form  the  first  facility  classification.  Lines  12  and  13  show  the  minimum  and 
maximum  CCNs  for  the  ranges  comprising  the  first  facility  classification.  In 


other  words,  the  CCNs  between  11100  and  16999  in  addition  to  the  CCNs  between 
40000  and  49999  define  the  first  facility  classification.  Classification  nine 
consists  of  three  CCN  ranges,  73000  to  79999,  80000  to  89999,  and  72100  to 
77999. 


C-3 


DISTRIBUTION  LIST 


Al  no  AF/l.EY  Washint-loii,  DC 

AlH  (Ai  riVLDE).  WrighI  Pallcrsoii  ON;  AI'SCVUP'I^.  Aiulrows  AI'H.  Wash,  DC;  ScdI  oI  lingnig  (API'I/DL'D 
AKr.S(  110.  RDVA  &  RDVCW 

ARMY  Chief  i)l  Engineers  DAEN-MPE-t;  Washington  DC;  Chid  of  Engineers  DAEN-MPO-U.  Washington 
DC;  FESA-EN,  Fort  Belvoir.  VA 
ARMY  -  C'ERL  Library.  Champaign  II. 

CNM  Corlc  MAT-OhE,  Washington,  DC 
one  Defense  Teehnieal  Info  Ctr/Alexandria,  VA 
CilDEP  OIC.  Corona.  CA 

LIBRARY  OF  CONORESS  Washington.  DC  (Scienees  &  Tech  Div) 

MARINE  CORPS  HOS  Code  l.FF  Washington  DC 

NAVFACENCiCOM  Alexandria.  VA;  Code  ID  Alexandria.  VA;  Corle  IDT  (Essoglou)  Alexandria.  VA:  Code  (14 
Alexandria  VA;  Code  (D.  Alexandria.  VA;  Code  (IK.  Alexandri.i  VA;  f'ode  (WM54.  Teeh  Lib.  Alexandria. 
VA;  Code  II,  Alexandria,  VA;  Code  III  Alexandria.  VA;  Code  111.1.  Alexandria.  VA 
NAVFACENCiCOM  -  CUES  DIV.  Code  (W.  Wash.  DC;  Code  (D.  Wash.  DC;  Code  10/11.  Washington.  DC; 
C'ode  1 12.  Wash,  DC;  Library,  Washington.  D.C. 

NAVFACENGCOM  -  LAN!  oiv.  Code  (14  Norfolk  VA;  Code  (D.  Norfolk.  VA;  Code  11.  Norfolk.  VA;  Code 
1112.  Norfolk.  VA;  Library.  Norfolk.  VA 

NAVFACENGCOM  -  NORTH  DIV.  Cride  (M  Philadelphia.  PA;  C'ode  (MAL.  Philadelphia  PA;  Code  05.  Phila. 
PA;  Code  II,  Phila  PA;  Code  III  Philadelphia.  PA 

NAVFACENGCOM  -  PAC  DIV  Code  04  Pearl  Harixrr  HI;  Crnle  05,  Pearl  Harbor.  HI;  Code  11  Pearl  Harbor 
HI;  Code  111.  Pearl  Harbor.  HI;  Coile  402.  RDT&E.  Pearl  Harbor  HI;  Library.  Pearl  Harbor.  HI 
NAVFACENGCOM  -  SOUTH  DIV.  C'ode  04.  Charleston.  SC.  Crxle  05,  Charleston,  SC;  Code  11.  Charleston. 

SC;  C'ode  1112.  C  harleston,  SC';  Library.  C'harleslon,  .SC' 

NAVFAC  ENGCOM  -  WEST  DIV.  CO  (C'ode  111.1).  San  Bruno.  CA;  C'ode  04.  San  Bruno.  CA;  Code  05.  San 
Bruno,  C'A;  Code  II  San  Bruno.  (  A;  Library.  San  Kruno.  C'A 
PWC'  CO  (Code  .10),  Pearl  Harbor.  HI;  C'ode  120.  Oakland  C'A;  Code  L54  (Library),  Great  Lakes.  IL;  Library, 
Code  I20C.  San  Diego,  C'A;  Library.  Guam;  Library.  Norfolk,  VA;  Library.  Pearl  Harbor.  HI;  Library, 
Pen.sacola,  FL;  Library,  Subie  Bay.  R.P.;  Library.  Yokosuka  JA 


